function TCPCom()

	print("TCPCom Thread Start!!!")

	-- 定义TCP客户端(参数为对应的服务端IP地址以及通讯端口号)
	netWork = NetClient.New("192.168.10.3",8080)

	-- 定义通讯数据收发方式(true为十六进制,false为字符串)
	netWork.AsHEX = false

	::Reconnect::
	-- 建立与服务端的连接
	-- 返回的参数为建立与服务端连接的结果.(连接成功返回0;连接失败返回错误代码-49)
	errStt = netWork:Connect()

	if errStt ~= 0 then
		print("连接视觉失败!!!")
		
		-- 输出报警信号
		GDouble[3] = -20001
		IO.Set(DO_ALARM,1)
		
		Thread.Sleep(1)
		goto Reconnect
	else
		ConnectLab = true
		print("连接视觉成功!!!")
	end

	while true do
		
		-- 触发相机拍照
		if GInt[11] == 1 then
			
			-- 获取与服务端的连接状态
			-- 返回的参数为与服务端的连接状态(1为与服务端已建立连接,0为与服务端未建立连接)
			ServerStatus = netWork:GetStatus()
			
			-- 判断与服务端是否已经连接,再进行发送信息或者接收信息的操作.
			if ServerStatus == 1 then
			
				-- 向服务端发送数据
				-- 参数为向服务端发送的数据
				-- 返回的参数为向服务端发送数据的结果.(发送成功返回0;当服务端断开连接,发送失败返回错误代码-51)
				errStt = netWork:Send("Camera")

				if errStt ~= 0 then
					print("视觉:发送信息失败!!!")
					GInt[11] = -1
				
					-- 输出报警信号
					GDouble[3] = -20001
					IO.Set(DO_ALARM,1)
					
					netWork:Disconnect()
					goto Reconnect		
				else
					print("视觉:发送信息成功!!!")
					GInt[11]= 0
				end
				
			else
			
				print("视觉连接断开!!!")
				GInt[11] = -1
				
				-- 输出报警信号
				GDouble[3] = -20001
				IO.Set(DO_ALARM,1)
				
				netWork:Disconnect()
				goto Reconnect			
	
			end
		
		end
		
		Thread.Sleep(0.1)
	end

end